home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / PASCALL / VIDEO / TESTVID.PAS < prev    next >
Pascal/Delphi Source File  |  1993-06-14  |  393b  |  35 lines
  1. program testvid;
  2. uses
  3.    Crt,FPal,FRgb;
  4.  
  5.  
  6.  
  7. function inkey:char;
  8. begin
  9.    if keypressed then inkey:=readkey
  10.    else               inkey:=#0;
  11. end;
  12. var
  13.    P0:TFRPalette;
  14.    P1:TFPPlaette;
  15.    s:boolean;
  16. begin
  17.    P0.Init;
  18.    P1.Init;
  19.  
  20.  
  21.    P0.Copy;
  22.    P1.Copy;
  23.  
  24.    s:=false;
  25.    repeat
  26.       P1.Cycle;
  27.    until inkey=#27;
  28.  
  29.    P0.Push;
  30.  
  31.    P0.Done;
  32.    P1.Done;
  33. end.
  34.  
  35.